home *** CD-ROM | disk | FTP | other *** search
/ How Would You Survive? / How Would You Survive (1995)(Grolier)[Mac-PC].iso / mac / VIKINGW.DIR / 01642_Script_Farming < prev    next >
Text File  |  1995-09-12  |  2KB  |  91 lines
  1. global gbeenclicked, gQuest, gLeftHouseOpen
  2.  
  3. on VFarmingRollovers
  4.   set gbeenclicked = 0
  5.   if (not(CheckClickedStatus(gQuest))) then
  6.     if the mousecast = the castnum of sprite 2 then
  7.       if gLeftHouseOpen = 0 then
  8.         repeat while the mousecast = the castnum of sprite 2
  9.           VikingCursor
  10.           if (the mousedown) then
  11.             set gbeenclicked = 1
  12.           else
  13.             --the mouse is up
  14.             if gbeenclicked = 1 then
  15.               repeat while gbeenclicked = 1
  16.                 RemoveFarmHouse
  17.               end repeat
  18.             end if
  19.           end if
  20.         end repeat
  21.       end if
  22.     else
  23.       if rollover(9) then
  24.         ArrowCursor
  25.         repeat while rollover(9)
  26.           set the locH of sprite 27 to 442
  27.           set the locV of sprite 27 to 154
  28.           updatestage
  29.         end repeat
  30.         set the locH of sprite 27 to 942
  31.         updatestage
  32.       else
  33.         if rollover(10) then
  34.           ArrowCursor
  35.           repeat while rollover(10)
  36.             if gLeftHouseOpen = 1 then
  37.               set the locH of sprite 28 to 288
  38.               set the locV of sprite 28 to 160
  39.               updatestage
  40.             else
  41.               set the locH of sprite 16 to 288
  42.               set the locV of sprite 16 to 160
  43.               updatestage
  44.             end if
  45.           end repeat
  46.           set the locH of sprite 28 to 988
  47.           set the locH of sprite 16 to 988
  48.           updatestage
  49.         else
  50.           if rollover(41) then
  51.             HandCursor
  52.           else
  53.             if rollover(42) then
  54.               HandCursor
  55.             else
  56.               ArrowCursor
  57.             end if
  58.           end if
  59.         end if
  60.       end if
  61.     end if
  62.   end if
  63.   RandomQuestion(gQuest)
  64. end
  65.  
  66. on RemoveFarmHouse
  67.   ArrowCursor
  68.   puppetsound "SV220101.AIF"
  69.   updatestage
  70.   wait .5
  71.   puppetsprite 2, true
  72.   puppetsprite 26, true
  73.   set the locV of sprite 2 = 900
  74.   set the locH of sprite 26 = 525
  75.   updatestage
  76.   wait 3
  77.   set gLeftHouseOpen = 1
  78.   set gbeenclicked = 0
  79. end
  80.  
  81. on ResetFarmHouse
  82.   global gLeftHouseOpen
  83.   set the locV of sprite 2 = 296
  84.   set the locH of sprite 2 = 354
  85.   set the locH of sprite 26 = 925
  86.   puppetsprite 2, false
  87.   puppetsprite 26, false
  88.   updatestage
  89.   set gLeftHouseOpen = 0 
  90. end
  91.